home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / NUMBER.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  43 lines
  1. 0 RANDOMIZE
  2. 1 PRINT CHR$(26):WIDTH 80:PRINT TAB(33);"NUMBER":PRINT
  3. 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 3 PRINT:PRINT:PRINT
  5. 4 PRINT "YOU HAVE 100 POINTS.  BY GUESSING NUMBERS FROM 1 TO 5, YOU"
  6. 5 PRINT "CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO"
  7. 6 PRINT "A RANDOM NUMBER SELECTED BY THE COMPUTER.": PRINT
  8. 7 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"
  9. 8 PRINT "YOUR POINT COUNT.  YOU WIN WHEN YOU GET 500 POINTS."
  10. 9 PRINT: P=100
  11. 10 DEF FNR(X)=INT(5*RND(1)+1)
  12. 12 INPUT "GUESS A NUMBER FROM 1 TO 5";G
  13. 15 R=FNR(1)
  14. 16 S=FNR(1)
  15. 17 T=FNR(1)
  16. 18 U=FNR(1)
  17. 19 V=FNR(1)
  18. 20 IF G=R THEN 30
  19. 21 IF G=S THEN 40
  20. 22 IF G=T THEN 50
  21. 23 IF G=U THEN 60
  22. 24 IF G=V THEN 70
  23. 25 IF G>5 THEN 12
  24. 30 P=P-5
  25. 35 GOTO 80
  26. 40 P=P+5
  27. 45 GOTO 80
  28. 50 P=P+P
  29. 53 PRINT "YOU HIT THE JACKPOT!!!"
  30. 55 GOTO 80
  31. 60 P=P+1
  32. 65 GOTO 80
  33. 70 P=P-(P*.5)
  34. 80 IF P>500 THEN 90
  35. 82 PRINT "YOU HAVE";P;"POINTS.":PRINT
  36. 83 IF P<=0 THEN PRINT "YOU RAN OUT OF POINTS. YOU LOSE!":GOTO 93
  37. 85 GOTO 12
  38. 90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS."
  39. 93 PRINT
  40. 95 INPUT "WOULD YOU LIKE TO PLAY AGAIN";ANS$
  41. 96 IF LEFT$(ANS$,1)="Y" THEN 9
  42. 99 RUN "MENU"
  43.